10 PRINTCHR$(147):POKE53280,0:POKE53281,0
20 FORX=1TO1000:NEXT
30 PRINTCHR$(147)
40 DIMP(156)
50 FORK=1TO156:READP(K):NEXT
60 K=INT(156*RND(1))+1
70 B=P(K)+54272
80 C=INT(14*RND(1))+1
90 POKEP(K),42:POKEB,C
100 GOTO60
110 DATA1042,1082,1122,1161,1162,1163
120 DATA1201,1202,1203,1241,1242,1243
130 DATA1280,1281,1282,1283,1284,1320
140 DATA1320,1321,1322,1323,1324,1360
150 DATA1361,1362,1363,1364,1399,1400
160 DATA1401,1402,1403,1404,1405,1439
170 DATA1440,1441,1442,1443,1444,1445
180 DATA1479,1480,1481,1482,1483,1484
190 DATA1485,1518,1519,1520,1521,1522
200 DATA1523,1524,1525,1526,1558,1559
210 DATA1560,1561,1562,1563,1564,1565
220 DATA1566,1598,1599,1600,1601,1602
230 DATA1603,1604,1605,1606,1637,1638
240 DATA1639,1640,1641,1642,1643,1644
250 DATA1645,1646,1647,1677,1678,1679
260 DATA1680,1681,1682,1683,1684,1685
270 DATA1686,1687,1717,1718,1719,1720
280 DATA1721,1722,1723,1724,1725,1726
290 DATA1727,1756,1757,1758,1759,1760
300 DATA1761,1762,1763,1764,1765,1766
310 DATA1767,1768,1796,1797,1798,1799
320 DATA1800,1801,1802,1803,1804,1805
330 DATA1806,1807,1808,1836,1837,1838
340 DATA1839,1840,1841,1842,1843,1844
350 DATA1845,1846,1847,1848,1882,1922
360 DATA1962,2000,2001,2002,2003,2004